home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / SecalDemo / Inc / rexx / storage.inc < prev   
Encoding:
Text File  |  1997-06-11  |  2.9 KB  |  155 lines
  1. include "inc/exec/types.inc";
  2. include "inc/exec/nodes.inc";
  3. include "inc/exec/lists.inc";
  4. include "inc/exec/ports.inc";
  5. include "inc/exec/libraries.inc";
  6.  
  7. struct NexxStr is
  8.   ns_Ivalue:long;
  9.   ns_Length:uword;
  10.   ns_Flags:ubyte;
  11.   ns_Hash:ubyte;
  12.   ns_Buff[8]:byte;
  13. ;
  14.  
  15. def NXADDLEN = 9;
  16.  
  17. def NSB_KEEP = 0;
  18. def NSB_STRING = 1;
  19. def NSB_NOTNUM = 2;
  20. def NSB_NUMBER = 3;
  21. def NSB_BINARY = 4;
  22. def NSB_FLOAT = 5;
  23. def NSB_EXT = 6;
  24. def NSB_SOURCE = 7;
  25.  
  26. def NSF_KEEP = (1<<NSB_KEEP);
  27. def NSF_STRING = (1<<NSB_STRING);
  28. def NSF_NOTNUM = (1<<NSB_NOTNUM);
  29. def NSF_NUMBER = (1<<NSB_NUMBER);
  30. def NSF_BINARY = (1<<NSB_BINARY);
  31. def NSF_FLOAT = (1<<NSB_FLOAT);
  32. def NSF_EXT = (1<<NSB_EXT);
  33. def NSF_SOURCE = (1<<NSB_SOURCE);
  34.  
  35. def NSF_INTNUM = (NSF_NUMBER|NSF_BINARY|NSF_STRING);
  36. def NSF_DPNUM = (NSF_NUMBER|NSF_FLOAT);
  37. def NSF_ALPHA = (NSF_NOTNUM|NSF_STRING);
  38. def NSF_OWNED = (NSF_SOURCE|NSF_EXT|NSF_KEEP);
  39. def KEEPSTR = (NSF_STRING|NSF_SOURCE|NSF_NOTNUM);
  40. def KEEPNUM = (NSF_STRING|NSF_SOURCE|NSF_NUMBER|NSF_BINARY);
  41.  
  42. struct RexxArg is
  43.   ra_Size:long;
  44.   ra_Length:uword;
  45.   ra_Flags:ubyte;
  46.   ra_Hash:ubyte;
  47.   ra_Buff[8]:byte;
  48. ;
  49.  
  50. struct RexxMsg is
  51.   rm_Node:Message;
  52.   rm_TaskBlock:ulong;
  53.   rm_LibBase:ulong;
  54.   rm_Action:long;
  55.   rm_Result1:long;
  56.   rm_Result2:long;
  57.   rm_Args[16]:ulong;
  58.   rm_PassPort:ulong;
  59.   rm_CommAddr:ulong;
  60.   rm_FileExt:ulong;
  61.   rm_Stdin:long;
  62.   rm_Stdout:long;
  63.   rm_avail:long;
  64. ;
  65.  
  66. def ARG0(rmp) = (rmp->rm_Args[0]);
  67. def ARG1(rmp) = (rmp->rm_Args[1]);
  68. def ARG2(rmp) = (rmp->rm_Args[2]);
  69.  
  70. def MAXRMARG = 15;
  71.  
  72. def RXCOMM = $01000000;
  73. def RXFUNC = $02000000;
  74. def RXCLOSE = $03000000;
  75. def RXQUERY = $04000000;
  76. def RXADDFH = $07000000;
  77. def RXADDLIB = $08000000;
  78. def RXREMLIB = $09000000;
  79. def RXADDCON = $0a000000;
  80. def RXREMCON = $0b000000;
  81. def RXTCOPN = $0c000000;
  82. def RXTCCLS = $0d000000;
  83.  
  84. def RXFB_NOIO = 16;
  85. def RXFB_RESULT = 17;
  86. def RXFB_STRING = 18;
  87. def RXFB_TOKEN = 19;
  88. def RXFB_NONRET = 20;
  89.  
  90. def RXFF_NOIO = (1<<RXFB_NOIO);
  91. def RXFF_RESULT = (1<<RXFB_RESULT);
  92. def RXFF_STRING = (1<<RXFB_STRING);
  93. def RXFF_TOKEN = (1<<RXFB_TOKEN);
  94. def RXFF_NONRET = (1<<RXFB_NONRET);
  95.  
  96. def RXCODEMASK = $ff000000;
  97. def RXARGMASK = $0000000f;
  98.  
  99. struct RexxRsrc is
  100.   rr_Node:Node;
  101.   rr_Func:word;
  102.   rr_Base:ulong;
  103.   rr_Size:long;
  104.   rr_Arg1:long;
  105.   rr_Arg2:long;
  106. ;
  107.  
  108. def RRT_ANY = 0;
  109. def RRT_LIB = 1;
  110. def RRT_PORT = 2;
  111. def RRT_FILE = 3;
  112. def RRT_HOST = 4;
  113. def RRT_CLIP = 5;
  114.  
  115. def GLOBALSZ = 200;
  116.  
  117. struct RexxTask is
  118.   rt_Global[200]:byte;
  119.   rt_MsgPort:MsgPort;
  120.   rt_Flags:ubyte;
  121.   rt_SigBit:byte;
  122.   rt_ClientID:ulong;
  123.   rt_MsgPkt:ulong;
  124.   rt_TaskID:ulong;
  125.   rt_RexxPort:ulong;
  126.   rt_ErrTrap:ulong;
  127.   rt_StackPtr:ulong;
  128.   rt_Header1:List;
  129.   rt_Header2:List;
  130.   rt_Header3:List;
  131.   rt_Header4:List;
  132.   rt_Header5:List;
  133. ;
  134.  
  135. def RTFB_TRACE = 0;
  136. def RTFB_HALT = 1;
  137. def RTFB_SUSP = 2;
  138. def RTFB_TCUSE = 3;
  139. def RTFB_WAIT = 6;
  140. def RTFB_CLOSE = 7;
  141.  
  142. def MEMQUANT = 16;
  143. def MEMMASK = $fffffff0;
  144.  
  145. def MEMQUICK = (1<<0);
  146. def MEMCLEAR = (1<<16);
  147.  
  148. struct SrcNode is
  149.   sn_Succ:ulong;
  150.   sn_Pred:ulong;
  151.   sn_Ptr:ulong;
  152.   sn_Size:long;
  153. ;
  154.  
  155.